/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.004 / xemacs-1 / xemacs-19.13 / lisp / hyperbole / kotl / kotl.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 63 74 68 6f 6d 70 40 |piled by| cthomp@|
|00000020| 77 69 6c 6c 6f 77 2e 63 | 73 2e 75 69 75 63 2e 65 |willow.c|s.uiuc.e|
|00000030| 64 75 20 6f 6e 20 54 75 | 65 20 41 75 67 20 32 39 |du on Tu|e Aug 29|
|00000040| 20 31 34 3a 35 31 3a 30 | 39 20 31 39 39 35 0a 3b | 14:51:0|9 1995.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 65 78 |;; from |file /ex|
|00000060| 70 6f 72 74 2f 77 69 6c | 6c 6f 77 33 2f 78 65 6d |port/wil|low3/xem|
|00000070| 61 63 73 2d 31 39 2e 31 | 33 2d 72 65 6c 65 61 73 |acs-19.1|3-releas|
|00000080| 65 2f 65 64 69 74 6f 72 | 2f 6c 69 73 70 2f 68 79 |e/editor|/lisp/hy|
|00000090| 70 65 72 62 6f 6c 65 2f | 6b 6f 74 6c 2f 6b 6f 74 |perbole/|kotl/kot|
|000000a0| 6c 2e 65 6c 0a 3b 3b 3b | 20 65 6d 61 63 73 20 76 |l.el.;;;| emacs v|
|000000b0| 65 72 73 69 6f 6e 20 31 | 39 2e 31 33 20 58 45 6d |ersion 1|9.13 XEm|
|000000c0| 61 63 73 20 4c 75 63 69 | 64 2e 0a 3b 3b 3b 20 62 |acs Luci|d..;;; b|
|000000d0| 79 74 65 63 6f 6d 70 20 | 76 65 72 73 69 6f 6e 20 |ytecomp |version |
|000000e0| 32 2e 32 35 3b 20 31 2d | 53 65 70 2d 39 34 2e 0a |2.25; 1-|Sep-94..|
|000000f0| 3b 3b 3b 20 6f 70 74 69 | 6d 69 7a 61 74 69 6f 6e |;;; opti|mization|
|00000100| 20 69 73 20 6f 6e 2e 0a | 3b 3b 3b 20 74 68 69 73 | is on..|;;; this|
|00000110| 20 66 69 6c 65 20 75 73 | 65 73 20 6f 70 63 6f 64 | file us|es opcod|
|00000120| 65 73 20 77 68 69 63 68 | 20 64 6f 20 6e 6f 74 20 |es which| do not |
|00000130| 65 78 69 73 74 20 69 6e | 20 45 6d 61 63 73 20 31 |exist in| Emacs 1|
|00000140| 38 2e 0a 0a 28 69 66 20 | 28 61 6e 64 20 28 62 6f |8...(if |(and (bo|
|00000150| 75 6e 64 70 20 27 65 6d | 61 63 73 2d 76 65 72 73 |undp 'em|acs-vers|
|00000160| 69 6f 6e 29 0a 09 20 28 | 6f 72 20 28 61 6e 64 20 |ion).. (|or (and |
|00000170| 28 62 6f 75 6e 64 70 20 | 27 65 70 6f 63 68 3a 3a |(boundp |'epoch::|
|00000180| 76 65 72 73 69 6f 6e 29 | 20 65 70 6f 63 68 3a 3a |version)| epoch::|
|00000190| 76 65 72 73 69 6f 6e 29 | 0a 09 20 20 20 20 20 28 |version)|..     (|
|000001a0| 73 74 72 69 6e 67 2d 6c | 65 73 73 70 20 65 6d 61 |string-l|essp ema|
|000001b0| 63 73 2d 76 65 72 73 69 | 6f 6e 20 22 31 39 22 29 |cs-versi|on "19")|
|000001c0| 29 29 0a 20 20 20 20 28 | 65 72 72 6f 72 20 22 54 |)).    (|error "T|
|000001d0| 68 69 73 20 66 69 6c 65 | 20 77 61 73 20 63 6f 6d |his file| was com|
|000001e0| 70 69 6c 65 64 20 66 6f | 72 20 45 6d 61 63 73 20 |piled fo|r Emacs |
|000001f0| 31 39 2e 22 29 29 0a 0a | 28 62 79 74 65 2d 63 6f |19."))..|(byte-co|
|00000200| 64 65 20 22 c0 c1 c2 5c | 22 88 c3 c4 4d 87 22 20 |de "...\|"...M." |
|00000210| 5b 6d 61 70 63 61 72 20 | 72 65 71 75 69 72 65 20 |[mapcar |require |
|00000220| 28 6b 6c 61 62 65 6c 20 | 6b 6e 6f 64 65 20 68 69 |(klabel |knode hi|
|00000230| 6e 69 74 20 68 74 7a 29 | 20 6b 63 65 6c 6c 3a 63 |nit htz)| kcell:c|
|00000240| 6f 6e 74 65 6e 74 73 20 | 6b 6e 6f 64 65 3a 63 6f |ontents |knode:co|
|00000250| 6e 74 65 6e 74 73 5d 20 | 33 29 0a 28 66 73 65 74 |ntents] |3).(fset|
|00000260| 20 27 6b 63 65 6c 6c 3a | 63 6f 70 79 20 23 5b 28 | 'kcell:|copy #[(|
|00000270| 6b 63 65 6c 6c 29 20 22 | c0 09 21 87 22 20 5b 6b |kcell) "|..!." [k|
|00000280| 6e 6f 64 65 3a 63 6f 70 | 79 20 6b 63 65 6c 6c 5d |node:cop|y kcell]|
|00000290| 20 32 20 22 5c 0a 52 65 | 74 75 72 6e 20 61 20 63 | 2 "\.Re|turn a c|
|000002a0| 6f 70 79 20 6f 66 20 4b | 43 45 4c 4c 2e 22 5d 29 |opy of K|CELL."])|
|000002b0| 0a 28 66 73 65 74 20 27 | 6b 63 65 6c 6c 3a 63 72 |.(fset '|kcell:cr|
|000002c0| 65 61 74 65 20 23 5b 28 | 63 6f 6e 74 65 6e 74 73 |eate #[(|contents|
|000002d0| 20 69 64 73 74 61 6d 70 | 20 26 6f 70 74 69 6f 6e | idstamp| &option|
|000002e0| 61 6c 20 70 6c 69 73 74 | 29 20 22 08 ab 89 08 3b |al plist|) "....;|
|000002f0| ac 85 c1 c2 08 5c 22 88 | 0b a8 ab 85 0b c4 57 ab |.....\".|......W.|
|00000300| 85 c1 c5 0b 5c 22 88 c6 | 08 c3 0b 44 c7 0e 08 3e |....\"..|...D...>|
|00000310| 3f ad 8a c7 c9 20 0e 5c | 6e 50 cb cc 20 46 a4 0e |?.... .\|nP.. F..|
|00000320| 08 a4 5c 22 87 22 20 5b | 63 6f 6e 74 65 6e 74 73 |..\"." [|contents|
|00000330| 20 65 72 72 6f 72 20 22 | 28 6b 63 65 6c 6c 3a 63 | error "|(kcell:c|
|00000340| 72 65 61 74 65 29 3a 20 | 49 6e 76 61 6c 69 64 20 |reate): |Invalid |
|00000350| 60 63 6f 6e 74 65 6e 74 | 73 27 20 61 72 67 75 6d |`content|s' argum|
|00000360| 65 6e 74 3a 20 25 73 22 | 20 69 64 73 74 61 6d 70 |ent: %s"| idstamp|
|00000370| 20 30 20 22 28 6b 63 65 | 6c 6c 3a 63 72 65 61 74 | 0 "(kce|ll:creat|
|00000380| 65 29 3a 20 49 6e 76 61 | 6c 69 64 20 60 69 64 73 |e): Inva|lid `ids|
|00000390| 74 61 6d 70 27 20 61 72 | 67 75 6d 65 6e 74 3a 20 |tamp' ar|gument: |
|000003a0| 25 73 22 20 6b 6e 6f 64 | 65 3a 63 72 65 61 74 65 |%s" knod|e:create|
|000003b0| 20 63 72 65 61 74 6f 72 | 20 70 6c 69 73 74 20 75 | creator| plist u|
|000003c0| 73 65 72 2d 6c 6f 67 69 | 6e 2d 6e 61 6d 65 20 68 |ser-logi|n-name h|
|000003d0| 79 70 65 72 62 3a 68 6f | 73 74 2d 64 6f 6d 61 69 |yperb:ho|st-domai|
|000003e0| 6e 20 63 72 65 61 74 65 | 2d 74 69 6d 65 20 68 74 |n create|-time ht|
|000003f0| 7a 3a 64 61 74 65 2d 73 | 6f 72 74 61 62 6c 65 2d |z:date-s|ortable-|
|00000400| 67 6d 74 5d 20 37 20 22 | 5c 0a 52 65 74 75 72 6e |gmt] 7 "|\.Return|
|00000410| 20 61 20 6e 65 77 20 6b | 63 65 6c 6c 20 77 68 69 | a new k|cell whi|
|00000420| 63 68 20 73 74 6f 72 65 | 73 20 43 4f 4e 54 45 4e |ch store|s CONTEN|
|00000430| 54 53 20 28 61 20 73 74 | 72 69 6e 67 20 6f 72 20 |TS (a st|ring or |
|00000440| 6e 69 6c 29 2c 20 68 61 | 73 20 70 65 72 6d 61 6e |nil), ha|s perman|
|00000450| 65 6e 74 20 49 44 53 54 | 41 4d 50 20 28 61 6e 20 |ent IDST|AMP (an |
|00000460| 69 6e 74 65 67 65 72 29 | 2c 20 61 6e 64 20 6f 70 |integer)|, and op|
|00000470| 74 69 6f 6e 61 6c 20 61 | 64 64 69 74 69 6f 6e 61 |tional a|dditiona|
|00000480| 6c 20 70 72 6f 70 65 72 | 74 79 20 6c 69 73 74 2c |l proper|ty list,|
|00000490| 20 50 4c 49 53 54 2e 0a | 55 73 65 72 20 69 64 20 | PLIST..|User id |
|000004a0| 6f 66 20 60 63 72 65 61 | 74 6f 72 27 20 6f 66 20 |of `crea|tor' of |
|000004b0| 63 65 6c 6c 20 61 6e 64 | 20 60 63 72 65 61 74 65 |cell and| `create|
|000004c0| 2d 74 69 6d 65 27 20 61 | 72 65 20 61 64 64 65 64 |-time' a|re added|
|000004d0| 20 74 6f 20 63 65 6c 6c | 27 73 20 50 4c 49 53 54 | to cell|'s PLIST|
|000004e0| 20 69 66 0a 6e 6f 74 20 | 61 6c 72 65 61 64 79 20 | if.not |already |
|000004f0| 74 68 65 72 65 2e 22 5d | 29 0a 28 66 73 65 74 20 |there."]|).(fset |
|00000500| 27 6b 63 65 6c 6c 3a 63 | 72 65 61 74 65 2d 74 6f |'kcell:c|reate-to|
|00000510| 70 20 23 5b 28 26 6f 70 | 74 69 6f 6e 61 6c 20 66 |p #[(&op|tional f|
|00000520| 69 6c 65 20 63 6f 75 6e | 74 65 72 29 20 22 c0 c1 |ile coun|ter) "..|
|00000530| c2 c3 0c ae 81 c2 c5 0d | 46 23 87 22 20 5b 6b 63 |........|F#." [kc|
|00000540| 65 6c 6c 3a 63 72 65 61 | 74 65 20 6e 69 6c 20 30 |ell:crea|te nil 0|
|00000550| 20 69 64 2d 63 6f 75 6e | 74 65 72 20 63 6f 75 6e | id-coun|ter coun|
|00000560| 74 65 72 20 66 69 6c 65 | 5d 20 37 20 22 5c 0a 52 |ter file|] 7 "\.R|
|00000570| 65 74 75 72 6e 20 61 20 | 6e 65 77 20 6b 6f 75 74 |eturn a |new kout|
|00000580| 6c 69 6e 65 20 74 6f 70 | 20 63 65 6c 6c 20 6f 70 |line top| cell op|
|00000590| 74 69 6f 6e 61 6c 6c 79 | 20 61 74 74 61 63 68 65 |tionally| attache|
|000005a0| 64 20 74 6f 20 46 49 4c | 45 20 77 69 74 68 20 63 |d to FIL|E with c|
|000005b0| 75 72 72 65 6e 74 20 69 | 64 73 74 61 6d 70 20 43 |urrent i|dstamp C|
|000005c0| 4f 55 4e 54 45 52 2e 22 | 5d 29 0a 28 66 73 65 74 |OUNTER."|]).(fset|
|000005d0| 20 27 6b 63 65 6c 6c 3a | 67 65 74 2d 61 74 74 72 | 'kcell:|get-attr|
|000005e0| 20 23 5b 28 6b 63 65 6c | 6c 20 61 74 74 72 69 62 | #[(kcel|l attrib|
|000005f0| 75 74 65 29 20 22 c0 c1 | 5c 6e 21 0b 5c 22 87 22 |ute) "..|\n!.\"."|
|00000600| 20 5b 6b 6e 6f 64 65 3a | 67 65 74 2d 61 74 74 72 | [knode:|get-attr|
|00000610| 20 6b 63 65 6c 6c 3a 70 | 6c 69 73 74 20 6b 63 65 | kcell:p|list kce|
|00000620| 6c 6c 20 61 74 74 72 69 | 62 75 74 65 5d 20 33 20 |ll attri|bute] 3 |
|00000630| 22 5c 0a 52 65 74 75 72 | 6e 20 74 68 65 20 76 61 |"\.Retur|n the va|
|00000640| 6c 75 65 20 6f 66 20 4b | 43 45 4c 4c 27 73 20 41 |lue of K|CELL's A|
|00000650| 54 54 52 49 42 55 54 45 | 2e 22 5d 29 0a 28 66 73 |TTRIBUTE|."]).(fs|
|00000660| 65 74 20 27 6b 63 65 6c | 6c 3a 69 64 73 74 61 6d |et 'kcel|l:idstam|
|00000670| 70 20 23 5b 28 6b 63 65 | 6c 6c 29 20 22 c0 09 c2 |p #[(kce|ll) "...|
|00000680| 5c 22 87 22 20 5b 6b 63 | 65 6c 6c 3a 67 65 74 2d |\"." [kc|ell:get-|
|00000690| 61 74 74 72 20 6b 63 65 | 6c 6c 20 69 64 73 74 61 |attr kce|ll idsta|
|000006a0| 6d 70 5d 20 33 20 22 5c | 0a 52 65 74 75 72 6e 20 |mp] 3 "\|.Return |
|000006b0| 70 65 72 6d 61 6e 65 6e | 74 20 69 64 73 74 61 6d |permanen|t idstam|
|000006c0| 70 20 6f 66 20 4b 43 45 | 4c 4c 20 61 73 20 61 6e |p of KCE|LL as an|
|000006d0| 20 69 6e 74 65 67 65 72 | 2e 22 5d 29 0a 28 62 79 | integer|."]).(by|
|000006e0| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 4d 88 c2 c3 4d |te-code |"..M...M|
|000006f0| 87 22 20 5b 6b 63 65 6c | 6c 3a 69 73 2d 70 20 6b |." [kcel|l:is-p k|
|00000700| 6e 6f 64 65 3a 69 73 2d | 70 20 6b 63 65 6c 6c 3a |node:is-|p kcell:|
|00000710| 70 6c 69 73 74 20 23 5b | 28 6b 63 65 6c 6c 29 20 |plist #[|(kcell) |
|00000720| 22 c0 09 c2 5c 22 87 22 | 20 5b 6b 6e 6f 64 65 3a |"...\"."| [knode:|
|00000730| 67 65 74 2d 61 74 74 72 | 20 6b 63 65 6c 6c 20 70 |get-attr| kcell p|
|00000740| 6c 69 73 74 5d 20 33 5d | 5d 20 32 29 0a 28 66 73 |list] 3]|] 2).(fs|
|00000750| 65 74 20 27 6b 63 65 6c | 6c 3a 72 65 66 2d 74 6f |et 'kcel|l:ref-to|
|00000760| 2d 69 64 20 23 5b 28 63 | 65 6c 6c 2d 72 65 66 29 |-id #[(c|ell-ref)|
|00000770| 20 22 08 3b ac 82 c1 87 | c2 c3 08 5c 22 ab 82 c1 | ".;....|...\"...|
|00000780| 87 c2 c4 08 5c 22 ab 87 | 08 c5 94 c5 95 4f 87 c2 |....\"..|.....O..|
|00000790| c6 08 5c 22 ad 86 08 c7 | 94 c7 95 4f 87 22 20 5b |..\"....|...O." [|
|000007a0| 63 65 6c 6c 2d 72 65 66 | 20 6e 69 6c 20 73 74 72 |cell-ref| nil str|
|000007b0| 69 6e 67 2d 6d 61 74 63 | 68 20 22 5b 5e 2e 3d 20 |ing-matc|h "[^.= |
|000007c0| 09 5c 6e 30 2d 39 61 2d | 7a 41 2d 5a 5d 22 20 22 |.\n0-9a-|zA-Z]" "|
|000007d0| 5e 5c 5c 73 20 2a 5c 5c | 28 5b 2e 30 2d 39 61 2d |^\\s *\\|([.0-9a-|
|000007e0| 7a 41 2d 5a 5d 2b 5c 5c | 29 3d 5c 5c 28 30 5b 30 |zA-Z]+\\|)=\\(0[0|
|000007f0| 2d 39 5d 2a 5c 5c 29 5c | 5c 73 20 2a 24 22 20 32 |-9]*\\)\|\s *$" 2|
|00000800| 20 22 5e 5c 5c 73 20 2a | 5c 5c 28 5b 2e 30 2d 39 | "^\\s *|\\([.0-9|
|00000810| 61 2d 7a 41 2d 5a 5d 2b | 5c 5c 29 5c 5c 73 20 2a |a-zA-Z]+|\\)\\s *|
|00000820| 24 22 20 31 5d 20 33 20 | 22 5c 0a 52 65 74 75 72 |$" 1] 3 |"\.Retur|
|00000830| 6e 73 20 61 20 43 45 4c | 4c 2d 52 45 46 20 73 74 |ns a CEL|L-REF st|
|00000840| 72 69 6e 67 20 63 6f 6e | 76 65 72 74 65 64 20 74 |ring con|verted t|
|00000850| 6f 20 61 20 63 65 6c 6c | 20 69 64 65 6e 74 69 66 |o a cell| identif|
|00000860| 69 65 72 20 73 74 72 69 | 6e 67 2e 0a 49 66 20 43 |ier stri|ng..If C|
|00000870| 45 4c 4c 2d 52 45 46 20 | 63 6f 6e 74 61 69 6e 73 |ELL-REF |contains|
|00000880| 20 62 6f 74 68 20 61 20 | 72 65 6c 61 74 69 76 65 | both a |relative|
|00000890| 20 61 6e 64 20 61 20 70 | 65 72 6d 61 6e 65 6e 74 | and a p|ermanent|
|000008a0| 20 69 64 2c 20 74 68 65 | 20 70 65 72 6d 61 6e 65 | id, the| permane|
|000008b0| 6e 74 20 69 64 20 69 73 | 0a 72 65 74 75 72 6e 65 |nt id is|.returne|
|000008c0| 64 2e 20 20 49 66 20 43 | 45 4c 4c 2d 52 45 46 20 |d.  If C|ELL-REF |
|000008d0| 69 73 20 69 6e 76 61 6c | 69 64 2c 20 6e 69 6c 20 |is inval|id, nil |
|000008e0| 69 73 20 72 65 74 75 72 | 6e 65 64 2e 0a 0a 43 45 |is retur|ned...CE|
|000008f0| 4c 4c 2d 52 45 46 20 6d | 61 79 20 62 65 20 6f 66 |LL-REF m|ay be of|
|00000900| 20 61 6e 79 20 6f 66 20 | 74 68 65 20 66 6f 6c 6c | any of |the foll|
|00000910| 6f 77 69 6e 67 20 66 6f | 72 6d 73 3a 0a 20 20 31 |owing fo|rms:.  1|
|00000920| 62 20 20 20 20 20 20 20 | 2d 20 72 65 6c 61 74 69 |b       |- relati|
|00000930| 76 65 20 69 64 2c 20 61 | 75 67 6d 65 6e 74 20 73 |ve id, a|ugment s|
|00000940| 74 79 6c 65 0a 20 20 31 | 2e 32 20 20 20 20 20 20 |tyle.  1|.2      |
|00000950| 2d 20 72 65 6c 61 74 69 | 76 65 20 69 64 2c 20 6c |- relati|ve id, l|
|00000960| 65 67 61 6c 20 73 74 79 | 6c 65 0a 20 20 30 31 32 |egal sty|le.  012|
|00000970| 20 20 20 20 20 20 2d 20 | 70 65 72 6d 61 6e 65 6e |      - |permanen|
|00000980| 74 20 69 64 73 74 61 6d | 70 0a 20 20 31 61 3d 30 |t idstam|p.  1a=0|
|00000990| 31 32 20 20 20 2d 20 62 | 6f 74 68 20 72 65 6c 61 |12   - b|oth rela|
|000009a0| 74 69 76 65 20 61 6e 64 | 20 70 65 72 6d 61 6e 65 |tive and| permane|
|000009b0| 6e 74 20 69 64 73 20 28 | 69 6e 20 74 68 61 74 20 |nt ids (|in that |
|000009c0| 6f 72 64 65 72 29 20 73 | 65 70 61 72 61 74 65 64 |order) s|eparated|
|000009d0| 20 62 79 20 3d 2e 22 5d | 29 0a 28 66 73 65 74 20 | by =."]|).(fset |
|000009e0| 27 6b 63 65 6c 6c 3a 72 | 65 6d 6f 76 65 2d 61 74 |'kcell:r|emove-at|
|000009f0| 74 72 20 23 5b 28 6b 63 | 65 6c 6c 20 61 74 74 72 |tr #[(kc|ell attr|
|00000a00| 69 62 75 74 65 29 20 22 | c0 09 c2 c3 c4 09 21 0d |ibute) "|......!.|
|00000a10| 5c 22 23 87 22 20 5b 6b | 6e 6f 64 65 3a 73 65 74 |\"#." [k|node:set|
|00000a20| 2d 61 74 74 72 20 6b 63 | 65 6c 6c 20 70 6c 69 73 |-attr kc|ell plis|
|00000a30| 74 20 6b 6e 6f 64 65 3a | 72 65 6d 6f 76 65 2d 61 |t knode:|remove-a|
|00000a40| 74 74 72 20 6b 63 65 6c | 6c 3a 70 6c 69 73 74 20 |ttr kcel|l:plist |
|00000a50| 61 74 74 72 69 62 75 74 | 65 5d 20 36 20 22 5c 0a |attribut|e] 6 "\.|
|00000a60| 52 65 6d 6f 76 65 20 4b | 43 45 4c 4c 27 73 20 41 |Remove K|CELL's A|
|00000a70| 54 54 52 49 42 55 54 45 | 2c 20 69 66 20 61 6e 79 |TTRIBUTE|, if any|
|00000a80| 2c 20 72 65 74 75 72 6e | 20 6d 6f 64 69 66 69 65 |, return| modifie|
|00000a90| 64 20 4b 43 45 4c 4c 2e | 22 5d 29 0a 28 66 73 65 |d KCELL.|"]).(fse|
|00000aa0| 74 20 27 6b 63 65 6c 6c | 3a 73 65 74 2d 61 74 74 |t 'kcell|:set-att|
|00000ab0| 72 20 23 5b 28 6b 63 65 | 6c 6c 20 61 74 74 72 69 |r #[(kce|ll attri|
|00000ac0| 62 75 74 65 20 76 61 6c | 75 65 29 20 22 c0 09 c2 |bute val|ue) "...|
|00000ad0| c0 c3 09 21 0c 0d 23 23 | 87 22 20 5b 6b 6e 6f 64 |...!..##|." [knod|
|00000ae0| 65 3a 73 65 74 2d 61 74 | 74 72 20 6b 63 65 6c 6c |e:set-at|tr kcell|
|00000af0| 20 70 6c 69 73 74 20 6b | 63 65 6c 6c 3a 70 6c 69 | plist k|cell:pli|
|00000b00| 73 74 20 61 74 74 72 69 | 62 75 74 65 20 76 61 6c |st attri|bute val|
|00000b10| 75 65 5d 20 37 20 22 5c | 0a 53 65 74 20 4b 43 45 |ue] 7 "\|.Set KCE|
|00000b20| 4c 4c 27 73 20 41 54 54 | 52 49 42 55 54 45 20 74 |LL's ATT|RIBUTE t|
|00000b30| 6f 20 56 41 4c 55 45 20 | 61 6e 64 20 72 65 74 75 |o VALUE |and retu|
|00000b40| 72 6e 20 6d 6f 64 69 66 | 69 65 64 20 4b 43 45 4c |rn modif|ied KCEL|
|00000b50| 4c 2e 22 5d 29 0a 28 66 | 73 65 74 20 27 6b 63 65 |L."]).(f|set 'kce|
|00000b60| 6c 6c 3a 73 65 74 2d 63 | 72 65 61 74 65 2d 74 69 |ll:set-c|reate-ti|
|00000b70| 6d 65 20 23 5b 28 6b 63 | 65 6c 6c 29 20 22 c0 09 |me #[(kc|ell) "..|
|00000b80| c2 c3 20 23 87 22 20 5b | 6b 63 65 6c 6c 3a 73 65 |.. #." [|kcell:se|
|00000b90| 74 2d 61 74 74 72 20 6b | 63 65 6c 6c 20 63 72 65 |t-attr k|cell cre|
|00000ba0| 61 74 65 2d 74 69 6d 65 | 20 68 74 7a 3a 64 61 74 |ate-time| htz:dat|
|00000bb0| 65 2d 73 6f 72 74 61 62 | 6c 65 2d 67 6d 74 5d 20 |e-sortab|le-gmt] |
|00000bc0| 34 20 22 5c 0a 53 74 6f | 72 65 20 74 68 65 20 74 |4 "\.Sto|re the t|
|00000bd0| 69 6d 65 20 6f 66 20 63 | 72 65 61 74 69 6f 6e 20 |ime of c|reation |
|00000be0| 6f 66 20 4b 43 45 4c 4c | 2e 22 5d 29 0a 28 66 73 |of KCELL|."]).(fs|
|00000bf0| 65 74 20 27 6b 63 65 6c | 6c 3a 73 65 74 2d 63 72 |et 'kcel|l:set-cr|
|00000c00| 65 61 74 6f 72 20 23 5b | 28 6b 63 65 6c 6c 29 20 |eator #[|(kcell) |
|00000c10| 22 c0 09 c2 c3 20 0c 50 | 23 87 22 20 5b 6b 63 65 |".... .P|#." [kce|
|00000c20| 6c 6c 3a 73 65 74 2d 61 | 74 74 72 20 6b 63 65 6c |ll:set-a|ttr kcel|
|00000c30| 6c 20 63 72 65 61 74 6f | 72 20 75 73 65 72 2d 6c |l creato|r user-l|
|00000c40| 6f 67 69 6e 2d 6e 61 6d | 65 20 68 79 70 65 72 62 |ogin-nam|e hyperb|
|00000c50| 3a 68 6f 73 74 2d 64 6f | 6d 61 69 6e 5d 20 35 20 |:host-do|main] 5 |
|00000c60| 22 5c 0a 53 74 6f 72 65 | 20 74 68 65 20 63 75 72 |"\.Store| the cur|
|00000c70| 72 65 6e 74 20 75 73 65 | 72 27 73 20 69 64 20 61 |rent use|r's id a|
|00000c80| 73 20 74 68 65 20 63 72 | 65 61 74 6f 72 20 6f 66 |s the cr|eator of|
|00000c90| 20 4b 43 45 4c 4c 2e 22 | 5d 29 0a 28 66 73 65 74 | KCELL."|]).(fset|
|00000ca0| 20 27 6b 63 65 6c 6c 3a | 73 65 74 2d 69 64 73 74 | 'kcell:|set-idst|
|00000cb0| 61 6d 70 20 23 5b 28 6b | 63 65 6c 6c 20 69 64 73 |amp #[(k|cell ids|
|00000cc0| 74 61 6d 70 29 20 22 c0 | 09 c2 5c 6e 23 88 c3 09 |tamp) ".|..\n#...|
|00000cd0| 21 87 22 20 5b 6b 63 65 | 6c 6c 3a 73 65 74 2d 61 |!." [kce|ll:set-a|
|00000ce0| 74 74 72 20 6b 63 65 6c | 6c 20 69 64 73 74 61 6d |ttr kcel|l idstam|
|00000cf0| 70 20 6b 63 65 6c 6c 3a | 69 64 73 74 61 6d 70 5d |p kcell:|idstamp]|
|00000d00| 20 34 20 22 5c 0a 53 65 | 74 20 4b 43 45 4c 4c 27 | 4 "\.Se|t KCELL'|
|00000d10| 73 20 70 65 72 6d 61 6e | 65 6e 74 20 49 44 53 54 |s perman|ent IDST|
|00000d20| 41 4d 50 20 28 61 6e 20 | 69 6e 74 65 67 65 72 29 |AMP (an |integer)|
|00000d30| 20 61 6e 64 20 72 65 74 | 75 72 6e 20 49 44 53 54 | and ret|urn IDST|
|00000d40| 41 4d 50 2e 22 5d 29 0a | 28 66 73 65 74 20 27 6b |AMP."]).|(fset 'k|
|00000d50| 6f 74 6c 2d 64 61 74 61 | 3a 63 72 65 61 74 65 20 |otl-data|:create |
|00000d60| 23 5b 28 63 65 6c 6c 29 | 20 22 c0 09 21 c2 09 21 |#[(cell)| "..!..!|
|00000d70| 41 41 1b 1c 09 ab 8c 0c | ab 89 0b ab 86 c5 0c 0b |AA......|........|
|00000d80| 5c 22 aa 8d c6 c7 c8 0c | ae 84 c9 0e 5c 6e 21 0b |\"......|....\n!.|
|00000d90| 23 21 2a 87 22 20 5b 6b | 63 65 6c 6c 3a 69 64 73 |#!*." [k|cell:ids|
|00000da0| 74 61 6d 70 20 63 65 6c | 6c 20 6b 63 65 6c 6c 3a |tamp cel|l kcell:|
|00000db0| 70 6c 69 73 74 20 70 6c | 69 73 74 20 69 64 73 74 |plist pl|ist idst|
|00000dc0| 61 6d 70 20 76 65 63 74 | 6f 72 20 6b 6f 74 6c 2d |amp vect|or kotl-|
|00000dd0| 64 61 74 61 3a 63 72 65 | 61 74 65 20 6b 63 65 6c |data:cre|ate kcel|
|00000de0| 6c 3a 63 72 65 61 74 65 | 20 6e 69 6c 20 6b 76 69 |l:create| nil kvi|
|00000df0| 65 77 3a 69 64 2d 69 6e | 63 72 65 6d 65 6e 74 20 |ew:id-in|crement |
|00000e00| 6b 76 69 65 77 5d 20 35 | 20 22 5c 0a 47 69 76 65 |kview] 5| "\.Give|
|00000e10| 6e 20 61 20 6b 6f 74 6c | 20 43 45 4c 4c 2c 20 72 |n a kotl| CELL, r|
|00000e20| 65 74 75 72 6e 20 61 20 | 6b 6f 74 6c 2d 64 61 74 |eturn a |kotl-dat|
|00000e30| 61 20 73 74 72 75 63 74 | 75 72 65 20 74 6f 20 77 |a struct|ure to w|
|00000e40| 72 69 74 65 20 74 6f 20 | 61 20 66 69 6c 65 2e 0a |rite to |a file..|
|00000e50| 49 66 20 43 45 4c 4c 2c | 20 69 74 73 20 69 64 73 |If CELL,| its ids|
|00000e60| 74 61 6d 70 2c 20 6f 72 | 20 69 74 73 20 70 72 6f |tamp, or| its pro|
|00000e70| 70 65 72 74 79 20 6c 69 | 73 74 20 61 72 65 20 6e |perty li|st are n|
|00000e80| 69 6c 2c 20 74 68 69 73 | 20 72 65 70 61 69 72 73 |il, this| repairs|
|00000e90| 20 74 68 65 20 63 65 6c | 6c 20 62 79 0a 61 73 73 | the cel|l by.ass|
|00000ea0| 75 6d 69 6e 67 20 69 74 | 20 69 73 20 74 68 65 20 |uming it| is the |
|00000eb0| 63 65 6c 6c 20 61 74 20 | 70 6f 69 6e 74 20 61 6e |cell at |point an|
|00000ec0| 64 20 66 69 6c 6c 69 6e | 67 20 69 6e 20 74 68 65 |d fillin|g in the|
|00000ed0| 20 6d 69 73 73 69 6e 67 | 20 69 6e 66 6f 72 6d 61 | missing| informa|
|00000ee0| 74 69 6f 6e 2e 22 5d 29 | 0a 28 62 79 74 65 2d 63 |tion."])|.(byte-c|
|00000ef0| 6f 64 65 20 22 c0 c1 4d | 88 c2 c3 4d 88 c4 c5 4d |ode "..M|...M...M|
|00000f00| 88 c6 c7 4d 88 c8 c9 4d | 88 ca cb 21 87 22 20 5b |...M...M|...!." [|
|00000f10| 6b 6f 74 6c 2d 64 61 74 | 61 3a 69 64 73 74 61 6d |kotl-dat|a:idstam|
|00000f20| 70 20 23 5b 28 6b 6f 74 | 6c 2d 64 61 74 61 29 20 |p #[(kot|l-data) |
|00000f30| 22 08 c1 48 87 22 20 5b | 6b 6f 74 6c 2d 64 61 74 |"..H." [|kotl-dat|
|00000f40| 61 20 30 5d 20 32 5d 20 | 6b 6f 74 6c 2d 64 61 74 |a 0] 2] |kotl-dat|
|00000f50| 61 3a 70 6c 69 73 74 2d | 76 32 20 23 5b 28 6b 6f |a:plist-|v2 #[(ko|
|00000f60| 74 6c 2d 64 61 74 61 29 | 20 22 08 c1 48 87 22 20 |tl-data)| "..H." |
|00000f70| 5b 6b 6f 74 6c 2d 64 61 | 74 61 20 32 5d 20 32 5d |[kotl-da|ta 2] 2]|
|00000f80| 20 6b 6f 74 6c 2d 64 61 | 74 61 3a 70 6c 69 73 74 | kotl-da|ta:plist|
|00000f90| 2d 76 33 20 23 5b 28 6b | 6f 74 6c 2d 64 61 74 61 |-v3 #[(k|otl-data|
|00000fa0| 29 20 22 08 c1 48 87 22 | 20 5b 6b 6f 74 6c 2d 64 |) "..H."| [kotl-d|
|00000fb0| 61 74 61 20 31 5d 20 32 | 5d 20 6b 6f 74 6c 2d 64 |ata 1] 2|] kotl-d|
|00000fc0| 61 74 61 3a 74 6f 2d 6b | 63 65 6c 6c 2d 76 32 20 |ata:to-k|cell-v2 |
|00000fd0| 23 5b 28 6b 6f 74 6c 2d | 64 61 74 61 29 20 22 c0 |#[(kotl-|data) ".|
|00000fe0| 09 21 ab 90 c2 c3 c4 09 | 21 ae 84 c5 0e 06 21 c7 |.!......|!.....!.|
|00000ff0| 09 21 23 87 c2 c3 c5 0e | 06 21 5c 22 87 22 20 5b |.!#.....|.!\"." [|
|00001000| 76 65 63 74 6f 72 70 20 | 6b 6f 74 6c 2d 64 61 74 |vectorp |kotl-dat|
|00001010| 61 20 6b 63 65 6c 6c 3a | 63 72 65 61 74 65 20 6e |a kcell:|create n|
|00001020| 69 6c 20 6b 6f 74 6c 2d | 64 61 74 61 3a 69 64 73 |il kotl-|data:ids|
|00001030| 74 61 6d 70 20 6b 76 69 | 65 77 3a 69 64 2d 69 6e |tamp kvi|ew:id-in|
|00001040| 63 72 65 6d 65 6e 74 20 | 6b 76 69 65 77 20 6b 6f |crement |kview ko|
|00001050| 74 6c 2d 64 61 74 61 3a | 70 6c 69 73 74 2d 76 32 |tl-data:|plist-v2|
|00001060| 5d 20 35 5d 20 6b 6f 74 | 6c 2d 64 61 74 61 3a 74 |] 5] kot|l-data:t|
|00001070| 6f 2d 6b 63 65 6c 6c 2d | 76 33 20 23 5b 28 6b 6f |o-kcell-|v3 #[(ko|
|00001080| 74 6c 2d 64 61 74 61 29 | 20 22 c0 09 21 ab 90 c2 |tl-data)| "..!...|
|00001090| c3 c4 09 21 ae 84 c5 0e | 06 21 c7 09 21 23 87 c2 |...!....|.!..!#..|
|000010a0| c3 c5 0e 06 21 5c 22 87 | 22 20 5b 76 65 63 74 6f |....!\".|" [vecto|
|000010b0| 72 70 20 6b 6f 74 6c 2d | 64 61 74 61 20 6b 63 65 |rp kotl-|data kce|
|000010c0| 6c 6c 3a 63 72 65 61 74 | 65 20 6e 69 6c 20 6b 6f |ll:creat|e nil ko|
|000010d0| 74 6c 2d 64 61 74 61 3a | 69 64 73 74 61 6d 70 20 |tl-data:|idstamp |
|000010e0| 6b 76 69 65 77 3a 69 64 | 2d 69 6e 63 72 65 6d 65 |kview:id|-increme|
|000010f0| 6e 74 20 6b 76 69 65 77 | 20 6b 6f 74 6c 2d 64 61 |nt kview| kotl-da|
|00001100| 74 61 3a 70 6c 69 73 74 | 2d 76 33 5d 20 35 5d 20 |ta:plist|-v3] 5] |
|00001110| 70 72 6f 76 69 64 65 20 | 6b 6f 74 6c 5d 20 32 29 |provide |kotl] 2)|
|00001120| 0a                      |                         |.       |        |
+--------+-------------------------+-------------------------+--------+--------+